home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / PTRPDEMO / TEST10.TRP < prev    next >
Text File  |  1995-01-17  |  296b  |  14 lines
  1. procedure main
  2. var
  3.         f : text = "test10.trp"
  4.         s : string
  5. endvar
  6.         if (reset(f) = 0) 
  7.                 while (not eof(f))
  8.                         readln(f, s)
  9.                         writeln(s)
  10.                 endwhile
  11.                 close(f)
  12.         endif
  13. endproc
  14.